#!/usr/bin/perl -w
use strict;
use warnings;

my $i = 0;
unlink("bench.log");
while (++$i < 100) {
    open(F, "| openssl s_client -connect localhost:8443 > bench.log") or
        die "Can't open: $!\n";

    print F "GET /\r\n\r\n";

    close(F);
}
